home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_101_Main < prev    next >
Encoding:
Text File  |  1992-04-08  |  437 b   |  30 lines
  1. { %filename% -- main program }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Program Main;
  5.  
  6. { Turn off automatic Toolbox initialization }
  7. {$I-}
  8.  
  9. Uses
  10.     TCL,
  11.     AMCL,
  12.     z%Appname%Intf,
  13.     %Appname%Intf;
  14.  
  15. const
  16.     kMinStack        = 15 * 1024;    {15K}
  17.  
  18. var
  19.     %Appname%App:%    %C%Appname%App;
  20.  
  21. Begin
  22.     SetMinimumStack (kMinStack);
  23.  
  24.     new (%Appname%App);
  25.     gApplication := %Appname%App;
  26.     %Appname%App.I%Appname%App;
  27.     gApplication.Run;
  28.     gApplication.ExitApp;
  29. End. {Main}
  30.